home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / draftcite.sty < prev    next >
Encoding:
Text File  |  1991-05-21  |  2.0 KB  |  55 lines
  1. %     D R A F T C I T E . S T Y 
  2. %
  3. %     Copyright (C) 1989 by Donald Arseneau
  4. %     These macros may be freely transmitted, reproduced, or modified for
  5. %     non-commercial purposes provided that this notice is left intact.
  6. %     
  7. %  Use the label instead of the number for citations, as if
  8. %  \bibitem[name]{name}{....}, but write the proper citation number to
  9. %  the aux file. Ignore spaces before the \cite, inserting an ordinary
  10. %  interword space. 
  11. %
  12. %  Pull out the code that writes the aux file citation and gives the name.
  13. %  \citen can be used by itself to give citation name without the other 
  14. %  formatting; e.g., "See also ref.~\citen{junk}" gives "See also ref. junk".
  15. %
  16. \def\citen#1{%
  17. \if@filesw \immediate \write \@auxout {\string \citation {#1}}\fi 
  18. \def\@citea{}%
  19. \@for \@citeb:=#1\do {\@citea
  20.   \@ifundefined {b@\@citeb}%
  21.     {{\bf \expandafter\@citeverb\expandafter{\@citeb}?}%
  22.     \@warning {Citation `\@citeb ' on page \thepage \space undefined}}%
  23. % else, defined
  24.     {\expandafter\@citeverb\expandafter{\@citeb}}%
  25.   \def\@citea{, }%
  26. }}
  27. % 
  28. %     Replacement for \@citex:
  29. % 
  30. \def\@citex[#1]#2{\leavevmode\unskip
  31.    \ \@cite{\citen{#2}}{#1}\spacefactor\@m}%
  32. %
  33. %  Give the citation tag as the label (even if another label is specified)
  34. %
  35. \def\@lbibitem[#1]#2{\item[\@biblabel{\@citeverb{#2}}]\if@filesw
  36.       {\def\protect##1{\string ##1\space}%
  37.       \immediate\write\@auxout{\string\bibcite{#2}{#1}}\fi\ignorespaces}}
  38.  
  39. \def\@bibitem#1{\item[\@biblabel{\@citeverb{#1}}]\stepcounter{\@listctr}%
  40.        \if@filesw \immediate\write\@auxout
  41.        {\string\bibcite{#1}{\the\c@enumi}}\fi\ignorespaces}
  42.  
  43. \def\@citeverb#1{%
  44.    \expandafter \expandafter \expandafter \@gobble  %  do \csname, \string, ...
  45.    \expandafter \string\csname#1\endcsname}         %  \@gobble, in that order.
  46.  
  47. \endinput
  48. %
  49. %  Send problem reports to asnd@triumfcl.bitnet or Arseneau@mtsg.ubc.ca
  50. %
  51. %  Test integrity of file:
  52. %  brackets: round, square, curly, angle:   () [] {} <>
  53. %  backslash, slash, vertical, at, dollar, and: \ / | @ $ &
  54. %  hat, grave, acute (apostrophe), quote, tilde:   ^ ` ' " ~
  55.